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16-Sep-1984 8: 93: $8 VAX=11 Bliss-32 V4.0-742 1. 
14-Sep 6-19 4 :3 DISKSVMSMASTER:CPATCH.SRCJPATMAL. 832: < (1)) 


; 1 001 3 
; § 0008 MODULE PATMAIN ( MAIN = PATS$MAIN, ! DRIVER FOR PATCH | H 
; L 000 IF XVARIANT EQL ‘1 | ; 
3 4 0004 THEN 5 
: 2 Bob? “FI ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), | ; 
; 7 0009 IDENT = 'V04-000' : 
; 8 0008 0 )s | 5 
co 0009 1 BEGIN | 
we 0010 1 : 
; 1 0011 1! | 
: \§ B0i§ ! RRA RAR ARR A AERA EAE E EATER AAT AAT R AT AAA AAT Tee Kee eee eee EERE Eee ; 
° 'e | Ps 
: 16 0014 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 ' | 
; 15 0015 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * ; 
: 18 i : ‘a ALL RIGHTS RESERVED. * : 
° .* ® Py 
H 18 0018 1 !* THIS SOFTWARE 44 FURNISHED a A LICENSE AND MAY BE USED AND gl bt * ; 
3 19 0019 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * . 
; 20 0020 1 !* INCLUSION OF THE ABOVE Tyg NOTICE. THIS SOF TWARE OR ANY OTHER * : 
: 21 0021 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
; $6 00 ¢ 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; Si be 7 : 7” TRANSFERRED. * : 
4 it * 4 
; 25 0025 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
: 26 0026 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
: i ot 44 : CORPORATION. * : 
3 ‘® * 3 
; $3 534 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; 0 0030 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
. 0031 1 !* * 3 
; 0032 1 !* . : 
4 33 003 1 Lee REAR AA ARERR AAA ARATE AAA ATTA AAA é 
; 34 0034 1! 

.-. 2 0035 1 

oy 0036 1 !++ 

; % 44 } FACILITY: IMAGE FILE PATCH UTILITY, PATCH 

: 39 0039 1 | ABSTRACT: THIS ROUTINE DRIVES PATCH. IT PERFORMS THE COMMAND LINE 

; re Boee { INTERFACE, THE FILE HANDLING, AND THE COMMAND PROCESSING LOOP. 

: 42 Bneg 1 | ENVIRONMENT: 

; 63 0043 1! 

; re) bee ' : AUTHOR: K.D. MORSE . CREATION DATE: 29-SEP-77 | 

: 46 0046 1 ! MODIFIED BY: 

; 47 0047 1} | 

s 648 0048 1! v03-012 MCNO180 Maria del C. Nasr 12-Jul-1984 

; «649 0049 1! Process qualifiers that take a value properly. First 

> oe 0050 1! check if the qualifier is present. and if true, get the 

; FH 0051 1! value. In that way, it will not process the value if the 

; 28 0038 ! qualifier has been negated. 

§ 54 0084 1: v03-011 MCNO172 Maria del C. 12-Jun-1984 

3 2? Baas : Set new version number and ce “Gtsplayed by PATCH. 

ce. iv 008? 1! V03-010 MCNO157 Maria del C. Nasr 20-Feb-1984 
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PATMAIN 1hese -1984 :03: VAX-11 Bliss-32 V4.0-742 P 
V04=000 easeen18Be 93:83:38 Heals ER eh en Secaparmar.eserte cry 
; 8 038 1! When we open the input file, save the channel, but 
: 9 059 1! do not connect stream. We are doing a user file open 
; & 060 1 } now to use the image activator routines for image 
: 2 O0e3 | processing. 
; 6 Mite 1 i v03-009 MTROO25 Mike Rhodes 8-Aug-1983 
; «664 0064 1! Add /ABSOLUTE qualifier to allow parching ANY file 
c. = 0065 1! via absolute (virtual) addresses. Restrictions: 
; 666 B08 1! The file's size may not grow (eg. default patch area 
3; 66f 0067 1! may NOT be created/expanded, etc.). This is due to 
; 68 0068 1! our inability to determine if we'li end up breaking 
: 9 BO? 1 an image or other such file which has internal size 
: £9 Booy ! } declarations within its header. 
. ¥ 007@ 1/ Additionally, routine EXIT_HANDLER has been added, 
: 7 0075 1! which will be declared when the file is patched in 
: ie pore : place (/ABSOLUTE /NONEW_VERSION). 
: 7% 0076 1! v03-008 MTRO024 Mike Rhodes 24-Jul-1983 
; a gh ; Correct default action of JOURNAL file processing. 
: 79 0079 1! v03-007 MTROO22 Mike Rhodes 22-Feb-1983 
: 39 Bees : Fix command file processing (/COMMAND and CREATE). 
: 82 008¢ :3 V03-006 MTROO20 Mike Rhodes 4=Feb-1983 
; 83 0083 1! Convert to the new CLI interface, advance PATCH's 
; eC boas : welcome message to reflect this change. 
: 86 0086 1! V03-005 MTROO19 Mike Rhodes 5-Jan-1983 
i ae 0087 1! Advance PATCH's ident to reflect inclusion of code to 
; 4 goes : } handle Debug Module/psect Table (DMT) in PATWRT.B32. 
: 90 0090 1} V03-004 MTROO18 Mike Rhodes 15-Nov-1982 
: 4 9g : Bump PATCH's ident message. 
<< 0093 1: v03-003 MTROOO9 Mike Rhodes 08-Jul-1982 
:; «94 0094 1! Advance PATCH’s ID to reflect the inclusion of 2 operand 
; +4 itd : nstruction alias support. 
: 97 0097 1: v03-002 MTROOO7 Mike Rhodes 14-Jun-1982 
: 98 0098 1! Use shared system meqseoss. athe ted modules include: 
HY 99 0099 1! DYNMEM.B32, PATBAS.B32, PATCMD.B32, PATIHD. 32, PATINT.B32, 
: 100 gin : PATIO.832, PATMAI.B32, PATMSG.MSG, PATWRT.B32, and PATSPA.B32. 
; 1n¢ 19¢ 1 i The shared messages are defined by PATERR.B32 and we simply 
; 7 0103 1! Link against these symbols. They are declared as external 
: ine Bibe : literals below. 
; 138 Hs} : Clock the welcome message ident to 3-01 15-Jun-1982. 
: 108 0108 1! v03-001 MTROOO3 Mike Rhodes 19-Mar-1982 
; 109 B19 a. Modified routine OPEN Put It passed the status value 
: 110 110 1! incorrectly from the RAB instead of the FAB. 
: ae iF : Fixes QAR 734. 
: 118 118 1} v03-000 MTROOO2 Mike Rhodes 15-Mar-1982 
3; (114 0114 1! Advance PATCH welcome message version number to 
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v04-000 16- 8een aes 908s ee NS MBMASTERSCPATCH SRCIPATMAL.B3201°" ¢ 
3-00 and the date to 15-Mar-1982. 

v02=035 MTROOOZ Mike Rhodes 01-Oct-1981 


chap ge PATCH watvane message gereten number to 
3 and the date to 01-Oct-1981. 


V02-034 ipa ad Mike Rhodes 17-Sep-1981 
ange PATCH aan message ouarere number to 
ng and the date to 1/7-Sep-1 
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v02-033 KDM005S2 Kathleen D. Morse 28-Apr-1981 

Change PATCH version number to 2.31 and date” to 28-Apr-1981. 
v02-032 BLS0043 Benn Schreiber 10-Apr-1981 

Get input file size from FHC XAB 
v02-031 KDM0045 Kathleen D. Morse 04-Mar-1981 

Change PA’CH version number to 2.30 and date to 04-Mar-1981. 
V02-030 KDM0044 Kathleen D. Morse 04-Mar-1981 

Fix some comment Lines. 
v0229 PCG0001 Peter Geor 02-F EB-1981 


e 
Add require statement for Pi BS: PATDEF .REQ 
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FORWARD ROUTINE 
PR ' Process the command Line 

! VOLUME qualifier action routine 

' UPDATE ques trier action routine. 

' OPENS THE INPUT IMAGE FILE 

! Handle exit conditions for peters in p‘s 

! INITIALIZES FOR FUTURE OUTPUT IMAGE FILE O 

' OPENS THE JOURNAL FILE 

! OPENS THE COMMAND FILE 


N 
OPENJOURNAL : NOVALUE, 
PATSOPEN_COMFIL : NOVALUE; 
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OUTPUT MACROS 
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Sep] :48  VAX=11. Bliss-32_v4.0-742 5 
ib-te 87-188 39i88:t8 | SEE BLSaScBe MA Sac teysser.reas1 2% 13 
SWITCHES LIST (SOURCE); 


EXTERNAL ROUTINE 
PAT$fao_out; ! formats a Line and outputs to the terminal 


PATMAIN 
v04=000 
1 978 
; 97 ! 
980 1 | EXTERNAL REFERENCES: 
4 981 i 
5 09 ; 
6 9 EXTERNAL ROUTINE 
0984 CLISPRESENT ADD 
R 0989 CLISGET_VALUE : ADD 
y Bae LIBSCVT DX_DxX AD 
0 098 
1 0988 patsconprec. 
g 09 9 ATSFAO-PUT, 
990 ATSINIT 
4 0991 ATSGET_{HD, 
5 099 PATSCLOSEFILES, 
099 PATSWRITEFILE 
0994 TSERR_HANDLER, 
0995 GETFILDSC; 
099 
099 EXTERNAL 
0998 PATSGB_EXEC_CMD : 


PATSCP~OUT_STR 
$12 


PAT$GL_BUF 
PATSGL_CHARUM, 
GB-TAKE_CMD: BYTE 
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ATSGL_IMGBCKS, 
PATSGW_IMGVOL : WORD, 
PAT$GL_ECO_UPD, 
1 PATSGL_FLAGS : BITVEC 
2 PAT$GL_OLDXABFH : BLO 
3 PAT$GL_OLDFAB : BLOCK 
PATS$GL_OLDRAB : BLOCK 
T$GL-OLDNBK : BLOCK 
PATSGL_NEWFAB : BLOC 
PATS$GL_NEWRAB : BLOCK 
PATSGL_NEWNBK : BLOCK 
PATSGL_NEWXABALL : BL 
PATSGL_JNLFAB : BLOCK 


Fwr 0 0an 


PAT$GB_JNLNAME , 
PAT$GB_COMNAME ; 


EXTERNAL LITERAL 
Define shared message refer 
PAT$_CLOSEIN 


PAT$~ CLOSEOUT, 
PATS-OPENIN, 
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: BYTE 
: REF VECTORC,BYTE), 
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Check for an entities presence in the comm 
Obtain the value associated with a qualifi 
neral conversion routine. 


CHANNELS 
CESS IMAGE HEADER INFORMATION 
CLOSE ALL FILES 
OUTPUTS MESSAGE TO A FILE 
ERROR MESSAGE HANDLER r 
Returns the address of a file name descrip 


L_NUMB 
gi PROCESS COMMANDS 


D OF PATCH COMMAND ARGUMENT LIST 

MBER OF BLOCKS IN NEW IMAGE 

elative Volume Number for new image 

ECU LEVELS TO UPDATE 

CLI PARSE FLAGS 

INPUT IMAGE FILE FILE HEADER CHARS. XAB 

INPUT IMAGE FILE FAB 

INPUT IMAGE FILE RAB 

INPUT IMAGE FILE NAME BLOCK 

OUTPUT IMAGE F FAB 

OUTPUT IMAGE F RAB 

OUTPUT IMAGE F NAME BLOCK 

Output vooge ALLocation XAB 
+ 


ommm 


E BLOCK 


COMMAND FILE NAME 


Error closing input file. 
Error closing output file. 
Error opening input file. 
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PATMAIN base 4 VAX=11 Bliss-32 V4.0-742 F 
v04-000 17-808 1984 99: 93: § DISKSVMSMASTER: CPATCH. SRCJPATMAI .B32; 4 sat \ 
8 PATS_OPENOUT, ' Error opening output file. 
PATS-OVERLAY, ! File is being overwritten. 
PATS_READER ! Error reading from file. 
PATS “SYSERROR, ! System Service error. 
PATS_WRITEERR; ! Error writing to file. 


i MACROS: 


i EQUATED SYMBOLS: 


OWN STORAGE: 
WN 


Ovrerace oo 


exit_cb : VECTOR (4, LONG], ! EXIT Control Block. 
input_desc : $BBLOCK Cdsc$c _s bln; 


Qualifier and Parameter name descriptors for command Line parsing. 
absolute= $descriptor (* ABSOLUTE® ,. /ABSOLUTE qualifier 


PDR AEDRDAP Ds & Be BB BEE PAA 
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cmdline = $cescriptor (‘SLIN ); ! Command Line identifier for CLI call back. 
command = $descriptor (' COMMAND § Vs ! /COMMAND qualifie 

file = $descriptor (*FILE'), ! in ut file “parameter (required). 

journal = $descriptor ('JOURNAL') ! / JOURNAL 

new_ver = $descriptor (‘NEW VERSION), : NEW VERS oN gual tier 

output = $descriptor (‘OUTPUT'), ' /OUTPUT quali 

update = $descriptor ('UPDATE'), ! /UPDATE pee fr 

volume = $descriptor (‘VOLUME’), ! /VOLUME qualifier 


le 
FAO control string for output of command Line to command file. 


= UPLIT ( ZASCIC "COMMAND FILE: “tAD'''), 
= UPLIT (ZASCIC "!AS"); 
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COM_STR 
COMLINE_STR 
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! MAIN PATCH DRIVER 


PATMAIN 
v04-0 


GLOBAL ROUTINE PATSMAIN : NOVALUE = 


14+ 
FUNCTIONAL DESCRIPTION: 


THIS MODULE IS THE DRIVER FOR THE IMAGE FILE PATCH UTILTIY. 
IT PERFORMS THE FOLLOWING: 


1. REPEATEDLY | CALLS BACK THE CLI REQUESTING THE PIECES OF THE 

. OPENS THE FILES FOR INPUT AND OUTPUT 

; CALLS THE ROUTINE TO MAP THE INPUT IMAGE FILE 

> LOOPS, CALLING NEPROPRIATE ROUTINES TO HANDLE PATCH COMMANDS 
" ELOseé ALL FILES 


NAUSEA —OOONOU 
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SESELRALAN AS SANS AR UNOS 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


CLI HAS THE COMMAND LINE. 
THE FABS AND RABS ARE INITIALIZED, SAVE FOR FILE NAMES. 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 


THE INPUT AND OUTPUT FILES ARE OPENED. THE COMMAND LINE IS PROCESSED. 
THE PATCH COMMANDS ARE EXECUTED. 
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C , InAGE FILE BEING PATCHED: AD), 
C ‘JOURNAL FILE: et de 
: Meta St QUALIFIER VALUES: ). 


NEW_IMG_STR 


JNL 
UPDATE _STR 
UPD_VAC_STR 
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LOCAL 
BIT_NUMBER, ' ECO LEVEL BIT COUNTER 
OUT_BUFFER : VECTORCTTY_OUT_WIDTH, BYTE); i OUTPUT BUFFER FOR JOURNAL MESSAGES 


ENABLE PATSERR_HANDLER; ! DECLARE ERROR HANDLER 
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144 
_OPEN COMMUNICATION CHANNELS AND INITIALIZE CONTEXT DATA,ETC. 
BATSINIT(); ! OPEN CHANNELS 


i” PROCESS THE COMMAND LINE ET. AL. 
PROCESS_COMMAND (); 


144 


OUTPUT WELCOME MESSAGE. 
$FAO_TT_OUT('!/!/ PATCH Version 4-00  15-Sep-1984!/"); 


'e¢ 
OUTPUT COMMAND INFORMATION TO JOURNAL FILE. 


baTSCP -OUT_STR = CHSPTR(OUT_BUFFER, 0); 
PATSGL~BUF ~$17 
PATSFAG PUT (NEW. IMG STR. .PATSGL_OLDNBKCNAMSB_RSLJ, PAT$GB_OLDNAME); 
PATSURITEF ILE(.PATSGL BU BUF SIZ, CRSPTR COUT. BUFFER, 6), PATSGL_JNLRAB); 


PATSCP_OUT_STR = CHSPTR(OOT_BUFFER 
PATSGL~BUF SIZ = 0; ' 
UTCJNL_STR, .PATSGL_JNLNBKCNAMSB_RSL], PATSGB_JNLNAME); 
PATSWRITEFILE(.PATSGL_BUF_SIZ, CHSPTR(OUT-BUFFER, 0), PATSGL_ JNURAB) ; 
IF (. PATSGL_FLAGS AND PATSM_COMMAND) NEQ 5 
BEGIN 
i PATSCP_OUT_STR = CHSPTR(OUT_BUFFER, 0); 
i PATSGL~BUF SIZ = 0; 
i PAT$SFAO_PUT(COM STR, .PATSGL_COMNBKCNAM$B_RSL], PAT$GB_COMNAME); 
PATSURITEFILE(.PA ATSéL’ “BUF_SIZ, CHSPTR(OUT-BUFFER, 0), PATSGL_JNLRAB); 


ee 

i Attempt to write the input file spec to the output command file. This 

i places it in the appended patch command text buffer even if no output 

i command file is being written. 

PATSWRITEFILE(.PATSGL_OLDFAB CFABSB FNS], .PATSGL_OLDFAB CFABSL_FNA], PATSGL_COMRAB) ; 
grate... FLAGS CPATSS _UPDATEJ 
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BEGIN 

PATS$CP_OUT “$7f = CHSPTR(OUT_BUFFER, 0); 

PAT$GL_BUF-SIZ = 

PATSFAO PUTCUPDAT 
T_NUMBER = PATS 

WHICE BIT _NUMBER C 


BEGIN 
M4 -PAT$GL_ECO_UPD<.BIT_NUMBER=1, 1> 


PATSFAO_PUT(UPD VAL_STR, .BIT_NUMBER); 
-NUMBER = .BIT_NUMBER + T; 


(.PATSGL_BUF_SIZ-1, CHSPTR(OUT_BUFFER, 0), PATSGL_JNLRAB); 


C 
0; 
TE’ STR); 
K~MIN_ECO; 
EQ PAT$K 
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; 4 
; INFO#212 


: 398 
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END; 


PATSGET_IHD(); 


PATSFIND_DST(); 
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i AS LONG AS THERE ARE C 


PATSGB TAKE CMD = 


lee 
1 


| CLOSE ALL FILES. 
PATSCLOSEFILES(); 


END; 
L1:1145 


OMMANDS TO 


RUE; 
WHILE 7PATS$GB_ TAKE. _CMD ‘DO 
PATSCOM_PROC(); 


! END OF PATSMAiN 


; Null expression appears in value-required context 


4E 4F 


45 54 55 4C 4F 


45 4E 


44 4E 41 4D 


45 


4C 41 4E 52 


49 53 52 45 56 SF 


foo f£o00fc0oO £0°0° Noo 
mons POLSON WOW LFOO— 
<a 


'+¢ 
READ THE IMAGE HEADER AND SET UP THE IMAGE SECTION TABLE. 


! GET INFO FROM IMAGE HEADER 


144 
INITALIZE SYMBOL TABLES FROM RST AND GST IN OLD IMAGE FILE. 


i THIS IS THE LOOP ame CAUSES PATCH COMMANDS TO BE PROCESSED. 


PROCESS, THE COMMAND FLAG IS ON. 


i IT IS TURNED OFF WHEN EOF IS ENCOUNTERED. 


TITLE 
~ IDENT 


»PSECT 


-ASCII 


- LONG 
- ADDRES 


-ASCII 

-BLKB 
«LONG 
-ADDRESS 
-ASCII 

KB 


-LONG 7 
rss) aed . AAF 


ASCII 


- LONG 
-ADDRESS P 


-ASCII 


! PROCESS COMMANDS 


! FINISH UP 


PATMAIN 
\V04-000\ 


_PATSPLIT,NOWRT ,NOEXE ,0 


peomers’ 


S P.AAB 


\SLINE\ 
3 
P.AAD 
ghar 
ILE\ 


. AAH 
\JOURNAL\ 


? 
SS _P.AAJ 
\NEW_VERSION\ 


10 
* (3) 


09 
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bell 


oo 
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MUL OF ENO fFOWSOO "NSO COO WOO 


MUVPINM LPNS HSrwsS 
SOOMwNM "VO —frwrn 


Nm 
—_ 
nm 
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be aleaia) 
wo 
VIN FS NOW OU MM OUD COC WOO “OW 


2 
? 
2 
2 


TOW 


P.AAN 
" wederncds 


one 6 
DRESS P.A 


\WOLUME\ 


P.AAR 
<21>\COMMAND FILE: \<9><9><9>\""!"\ 


\AD''\<0><0> 
<3>\! 


AS 
<31>\IMAGE FILE BEING PATCHED: \<9>\""!\ 


<21>\ JOURNAL FILE: \<9><9><9>\""!'\ 


\AD''\<0><0> 


<25>\UPDATE QUALIFIER VALUES: \<9><0> 


<0> 
<5>\ !UL,\<0><0> 
\!/!/ PATCH Version 4-00 


VFA 


_PATSOWN,NOEXE ,2 
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PATMAIN 16-Sep-1984 3:4 VAX=11 Bliss-32 V4.0-742 
v04-000 14- B= 3B 93: 3: 3 DISKSVMSMASTER:CPATCH.SRCJPATMAL. 832: s _ ( 


HD, 

FIL 

fs 

ARUM 
RCODE, PAT$G 

GBLKS, PAT$GW_IMGVOL 
O_UPD, PATSGL_FLAGS 

RABFH 


XTRN PATSGL_ pt OR Ae PATS$SGL_OLDRAB 
XTRN PATSGL-OLDNBK, PATS$GL_NEWF AB 
XTRN PATSGL_ “NEWRAB, PATS$GL_NEWNBK 
XTRN PATSGL_NEWXABALL 

XTRN PATSGL C~JNLAB. PATS$GL_JNLRAB 
XTRN PATSGL_-JNLNBK, PATS$GL_COMFAB 


TRN 


>< OC OK OK OC OK OK OE OK OK OK OK ED 
en ee 1 
C—O sBzwVwrcom we <oxe 
J 4 cvo>r> 


-EXTRN PATS_OVERLAY, PATS_READERR 
-EXTRN PATS$_ SYSERROR, PATS _WRITEERR 


.PSECT _PATSCODE,NOWRT,2 
.ENTRY PATSMAIN, Save R2,R3,R4,R5,R6,R7,RB,R9 : 1075 
MOVAB PAT$GB_TAKE_ CMD, R9 
A NLRAB, R8 
MOVAB PATSUATTEF ILE, R6 
MOVAB PATS AO Pu T, R5 
MOVAB PATSeL BUF _SIZ, R3 
MOVAB -132(SP), SP 
7$, (FP) 


CALLS 40, NIT 
its + PROCESS. COMMAND 


RHROMNE INOW 
ooooooo 


000000006 
00000000Vv 


MMVIII 


ga 

000000006 CALLS #2, PATSFAO_O 

MOVAB OUT BUFFER, “PU scp _OUT_STR 
CLRL + PATSGL_BUF SIZ 

PUSHAB PAT$GB~O UORAME 

MOVZBL PATSGL C-OLDNBKSS, -(SP) 


CALLS i ~PATSPAO _PUT 


am 
nm 


aon 

uw mm 
oo 
oo 
oo 
oo 


OUT_BUFFER 
PUSHL ian BUF 
CALLS #3, Sh TSURTTEFILE 
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PATMAIN 1hesep-1 VAX-11 Bliss-32 V4.0-742 Page 13 Pi 
v04=000 14- ~tep- 1382 99: 3: 38 DISKSVMSMASTER: CPATCH.SRCJPATMAL .B32; 1 79 (3) | Vv 
67 6 96 00078 MOVAB OUT_BUFFER, PATSCP_OUT_STR £1154. 
é p4 0 7B CLRL—«- PATSGL_BUF SIZ : 1155) 
900000006 EF OF O20 PUSHAB PAT$GB_JNLNAME 3 1156) 
7E 000000006 EF 9A 000 MOVZBL PATSGL-JNLNBK+3, -(SP) : 
C4 AG OF OOOBA PUSHAB JNL_ST : 
65 03 FB 0008D CALLS #3, PATSFAO_PUT : 
DD 00090 PUSHL RB : 1157) 
04 AE 9F 0009 PUSHAB OUT_BUFF : 
63 DD 009 PUSHL PATSGL_B z ; 
66 03 FB 0009 CALLS #3, PATSWRITEFILE 3 
000000006 EF 9F OO09A PUSHAB PATS$GL_CO + 1172 
990000006 EF po O00 PUSHL PATS$GL~OL : 
7E 000000006 a A 000A6 MOVZBL PATSGL-OLDFAB+52, -(SP) : 
66 3 FB OOOAD CALLS #3, PATSW E : 
3B 000000006 EF 04 al 00080 BBC #4, PATSGL_FLAGS, 4$ : 1173 
67 of E 000B8 MOVAB out BUF FER bATSce _OUT_STR + 1176 
63 D4 00088 CLRL _—- PATSGL_BUF_SIZ + 1177 
DC «6A4) «OOF 000BD PUSHAB UPD DATE- + 1178 
01 FB 900¢0 CALLS Bi PUT : 
52 01 pO 000C MOVL At T_NUMBER : 1179 
00000080 52 D1 000C6 1$: CMPL BIT _RUMBER. #128 > 1180 
18 14 000CD BGTR ; 
50 FF A2 9E OOOCF MOVAB =1(R + 1183 
08 000000006 _ EF 50 £1 00003 BBC RO "PatsoL _ECO_UPD, 2$ : 
52 DD 00008 PUSHL BIT_NUMB + 1185 
F8 AG 9F OOODD PUSHAB UPD~VAL ; | 
65 02 FB O00EO CALLS #2 AW. PUT ; 
52 D6 OO0ES 28: INCL BIT_N + 1186 
OF 11 000E5 BRB : 1180 
58 DD OOOE7 3S: PUSHL RB : 1188 
04 AE 9F 000E9 PUSHAB OUT_BUFFER : 
7E 63 01 C3 OO0EC SUBL3 #1, ~PATS$GL_BUF_SIZ, -(SP) ; 
66 03 FB 000FO CALLS #3, PATSURTTEFILE : 
000000006 EF 00 FB OOOF3 4$: CALLS #0, PATSGET + 1194 
000000006 EF 00 FB OOOFA CALLS #0. PATSFI iN : 1199 
69 01 90 00101 MOVE #1. PAT$GB TAKE _CMD : 1206 
09 69 £E9 00104 5S: BLBC = PAT$GB_TAKE_CMD- : 1207 
000000006 EF 00 FB 00107 CALLS #0, PATSCOM~PROC : 1209 
F4 11 0010€ BRB ; 
000000006 EF 00 FB 00110 6$: CALLS #0, PATSCLOSEFILES > 1214 
04 00117 RET : 1216 
0000 00118 7$: «WORD Save nothing 3 1119 
7E 04 OO11A CLRL =(SP) : 
5E DD 0011C PUSHL ; 
7E 04 AC 7D OO11E mova.  &(AP), =(SP) : | 
000000006 _ EF 03 FB 0128 CALLS #3, PATSERR_HANDLER : 
04 00129 RET ; | 


; Routine Size: 298 bytes, Routine Base: _PATS$CODE + 0000 


; 411 iy 4 


yt a? oP a ot at ot et et et ot et et et et ot et et et et tet 
WWWWNAIARSPOPUNOPONIPONUNPYD SS Ss OS 


Fd 
ees 
OONA UE WN — O OONOUNE WN —“OOONOUSW 
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PATMAIN 
v04-000 


2 


ROUTINE PROCESS_COMMAND : NOVALUE = 
} Functional Description: 


12 
-Sep-1984 00:03:4 VAX-11 Bliss-32 V4.0-742 
=30071 382 90:03:4 DISKSVMSMASTER: CPATCH.SRCIJPATMAI .B32; 


Call slave procedures to process specific portions 


of the command Line. 
Implicit Outputs: 


The command Line and its associated qualifiers 


i 
i 
i 
i 
i 
i 
have been parsed and processed. 
' 

i 
i 
i 
le 


Side Effects: 
Errors will be SIGNALLed by the CLI. 
BEGIN 


CHSFILL (0, dsc$c_s_bln, input_desc); 
input_desc Cdsc$b"dtypeJ=dsc$k_dtype_t: 
input_desc Cdsc$b_classJ=dsc$k_class_d; 
open_input (); 

open-output (5; 

open_journal (5; 

volume_parse (); 


Initialize the input string descriptor. 


' Define the data type as text. 
! Define the descriptor as a dynamic string descriptor. 


Obtain the INPUT file spec and open the file, process /ABS and /NE 
e. 


Obtain the OUTPUT file spec and open the fil 
Obtain the JOURNAL file spec and open the file. 
Process the /VOLUME qualifier. 


ce ee ce ec ee ee ee ee ce el el ee ee ee ee ed 


WE BERR EEE PW 
SOOWONAUES WN $0 ODNOUES WN CO OONAUS WN —OWOO 


= PONONONOPONONOPONONONNONUR) 2 es 


; Routine Size: 


upeete parse (); Process the /UPDATE qualifier. 
IF CLISPRESENT (command) If /COMMAND has been specified... 


THEN pat$Sopen_comfil (1); 
END; ! of ROUTINE process_command 


003C 00000 PROCESS_COMMAND: 
WORD Save R2,R3,R4,R5 


* oR 
00 6E 00 2¢ 0000 MOvVCS #0, (SPS, #0,°#8, INPUT_DESC 
00000000' EF 0000 
00000000' EF 020E 8F BO 9000¢ MOVW #526, INPUT_DESC+2 
9000000 v EF 00 FB 0001 CALLS #0, OPEN_INPUT 
0000000V EF 0 FB o1¢ CALLS #0, OPENTOUTPUT 
00000000v_ EF 00 FB 000 CALLS #0, OPEN~ JOURNAL 
00000000v_ EF 00 FB 0002A CALLS #0, VOLUME_PARSE 
00000000V_ EF 00 FB 00031 CALLS #0, UPDATE -PARSE 
00000000' EF 9F 000 PUSHAB C 
000000006 00 1 FB 00 i CALLS #1, CLISPRESENT 
09 0 €£ 004 LBC =—OséRO. ‘1 
1 DD 00048 PUSHL #1 
00000000V EF 01 FB Babee CALLS #1, PATSOPEN_COMF IL 
04 00051 1$: RET 


82 bytes, Routine Base: _PATSCODE + 012A 


obtain the COMMAND file spec and open the file (if any). 


NOVUEWNMO WOO 


ee eee 
rrerornoronrnr) = fnore 
PPLE EW WoO 


P 
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«SRCJPATMAI .B32; 


-32 V4.0- 
:CPATCH 


liss 
MSMASTER 


VAX=11 
DISK$V 


H 12 
4 ar) 19° +4 =138¢ 90:03:38 VAX=11 Bliss-32 V4.0-742 Pa age 
' 


1 
ep-19 DISKSVMSMASTER:CPATCH.SRCIJPATMAI.B32;1 (5 


; sts } 28 ! ROUTINE OPEN_INPUT : NOVALUE = ! ROUTINE TO OPEN INPUT FILE 

; 450 1 22 1 !4+ 

; te) ! 2? : FUNCTIONAL DESCRIPTION: 

; re 1 28 1 i PROCESS THE INPUT FILE PARAMETER IN THE COMMAND LINE. 

3 tee : 28 } THE FAB IS SET UP AND THE INPUT IMAGE FILE OPENED. 

; 18 1260 1 | IMPLICIT INPUTS: 

; 457 1261 1! 

; 458 1 66 1/ CLI HAS THE COMMAND LINE. 

; +23 : oi ’ THE FABS AND RABS ARE INITIALIZED, SAVE FOR FILE NAMES. 

; 461 1265 1! SIDE EFFECTS: 

: rr 1 66 1 

; 46 1267 1! THE INPUT FILE IS OPENED, AND MAY BE CLOSED DUE 

; 464 1268 1! TO ys USER'S REQUEST TO PATCH THE FILE IN PLACE 

; 465 1269 1 VIA A COMBINATION OF THE — QUALIFIERS 

: re | 1¢20 : YABSOLUTE AND /NEW_VER 

; 468 1s?¢ 1 i ALSO, DECLARE AN EXIT HANDLER WHICH WILL WARN THE USER 

; 469 1275 1! THAT UPON IMAGE RUNDOWN THE FILE BEING PATCHED IS OVERWRITTEN. 

; 470 iste 1 THIS IS A DIRECT RESULT OF SECTION MAPPING, AND THE PATCH 

3 471 1275 1! UPDATE COMMAND IS MORE OF A aa POINT OPERATION (EG. 

; 47 1276 1! WHAT I*VE DONE SO FAR, BACK TO THE SECTION FILE) THAN ANYTHING 

3 47 1277 1! ELSE. 

> 474 1278 1 

> 475 1279 1 i- 

: 476 1280 1 

3; 477 1281 $ BEGIN 

: 478 1st¢ PATSGL_FLAGS CPAT$S_ABSOLUTE] = CLISPRESENT (absolute); ' See if we should patch via absolute (virtu 
: 479 128 PATSGL_FLAGS CPATSS_NEW VERSION) = CLISPRESENT (new_ver); ! See if a new version of the file should be 
; 480 1284 PATSGL_FLAGS CPATSS_INPUTJ = CLISGET_VALUE (file {fiput.. desc); ' Get the INPUT file specification. 

> 481 1285 PATSGL_OLDF AB 9 FNA =. INPUT _DESCLOSCSA_POIN NTERI; ' SET FILE NAME ADDRES 

; 482 1286 PAT$GL_OLDF ABLFABSB_FNSJ=. INPUT_DESCCOSCSW_ LENGTH); ' SET FILE NAME LENGTH 

; 483 1287 PATSGL SERRCODE-SOPER(F AB= =PAT$GL~ _OLDF AB); ! OPEN INPUT FILE 

3; 484 1288 peur BESCCDSCSA_POINTER) = 0; ' Force allocation of a new string buffer. 
; 485 1289 Nor -PAT$GL_ERRCODE ! SUCCESS ON OPE 

: 486 1520 

; 487 1291 BEGIN 

; 488 1$36 athe FLAGS CPAT$S_INPUT] = 0; SET FLAG FILE NOT OPE 

: re 4 \$37 SIGNAL (PATS_ OPENIN,T,GET FILDSC(PATSGL_OLDFAB), .PATSGL _OLDFABLFABSL. STSJ,.PATSGL NOLDF ABLE ABSL _STV)); 
3; «491 1§9? ELSE 

; 49 1296 BEGIN 

; «49 1297 PATSGL_CHANUM = .PATSGL_OLDFAB CFABSL_STV); Save channel num 

3 +38 1298 i eis PATSOL “FLAGS CPAT$S_ABSOLUTE) AND-NOT .PATSGL FLAGS tpATss NEW. VERSION] 

: os] 1300 Patching the file in place. The mapping will take care of accessing the file and updating 
; 498 1306 4 BEGIN 

; 499 1303 4 oe -ERRCODE = SDASSGN (CHAN=.PATSGL_CHANUM) ; 

; 200 1308 2 F NOT .PAT$GL_ERRCODE 

: 208 1306 4 SIGNAL ( PAT$_CLOSEIN, 1, GETFILDSC(PATSGL ts) -PATSGL_ERRCODE, 0); 

; 50 1307 4 PATSGL_CHANUM = 0= No channel ass gned anymore 

; 504 1308 4 PATSGL7 “FLAGS CPAT$S_INPUT) = 0; i Set file not open flag. 


“~~ 


12 | 
PATMAIN 1b-3e -1984 :03: VAX-11 Bliss=-32 V4.0=-742 © 1 
04-000 eagee18Be 99:93:98 Pe ShAStERScPAT oN SacoPATMAL.A3209% «45, 


: 505 1309 4 
; 506 1310 4 EXIT_CB [0] = 0; ' Forward Link. 
; 28 1311 4 EXIT_CB C1) = EXIT_HANDLER; ! Exit handler address. 
> 308 1 \¢ 4 EXIT CB § = 1; ! Argument count. 
; 298 ! \; 2 EXIT_CB = PATSGL_ERRCODE; ! Address to store reason for exit (status | 
; Hi 13 5 1F NOT (PATSGL_ERRCODE = S$DCLEXH (DESBLK = EXIT_CB)) ! Declare the EXIT handler. 
: a1 1 i$ 4 SIGNAL (PATS_SYSERROR, 0, .PATSGL_ERRCODE); | 
> 514 1318 END; 
; 515 1319 END; 
; 316 1 20 
s $1 1321 1 END; ! END OF OPEN_INPUT 
~EXTRN SYSSOPEN, SYSSDASSGN 
“EXTRN SYSS$DCLEXH 
07FC 00000 OPEN_INPUT: 
.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10 : 1252 
5A 000000006 FF 9E 0000 MOVAB GETFILDSC, R10 : 
59 000000006 60 9€ 0000 MOVAB CLISPRESENT, R9 : 
58 00000000' EF 9E 00010 MOVAB ABSOLUTE, R& ; 
57 000000006 FF 9E 00017 MOVAB PATSGL_CHANUM, R7 : 
56 000000006 60 9€ 00016 MOVAB LIBS$SIGNAL, R6 : 
55 000000006 EF 9E 000 MOVAB TSGL_OLDFAB, R5 : 
54 000000006 EF 9E 000 ¢ MOVAB PATSGL“FLAGS, R4 ; 
53 000000006 EF 9€E 000 MOVAB PATSGL-ERRCODE, R3 F 
52 00000000" EF 9E 0003A MOVAB INPUT_DESC, R F 
58 DD 00041 PUSHL + 1282 
69 01 FB 00043 CALLS #1, CLISPRESENT : 
64 01 06 50 FO 00046 INSV RO, #6, #1, PATSGL_FLAGS 3 
50 AS 9F 00048 PUSHAB NEW_ + 1283 
69 01 FB O004E CALLS #1, CLISPRESENT : 
64 01 07 50 FO 00051 INSV RO, #7, #1, PATSGL_FLAGS ; 
52 DD 00056 PUSHL R2 > 1284 
2c =6—AB «OOF 00058 PUSHAB FILE ; 
000000006 00 98 FB 9005 CALLS #2, CLISGET_VALUE : 
64 01 02 F 006 INSV RO, #2, #1, PATSGL_FLAGS ; 
2c AS 04 A2 00 0006 MOVL § INPUT_DESC4+4, PATSGL_OLDFAB+44 + 1285 
4 AS 62 90 906¢ MOVB § INPUT DESC, PATSGL_OCDFAB+52 + 1286 
55 DD 0007 PUSHL R5 : 1287 
000000006 09 gi FB 007g CALLS #1, SYSSOPEN ; 
6 0D 7 MOVL RO, PAT$GL_ERRCODE F 
04 Ag D4 0007C¢ CLRL INPUT DESC#4 : 1288 
1A 63 £8 0007F BLBS = PATSGC ERRCODE 1$ > 1289 
4 04 8A 0082 BICB2 #4, PATS$GL FLAGS : 1 % 
E 08 AS 7D 0008 MOVQ PATSGL_OLDFAB+8, -(SP) : 129 
55 DD 00089 PUSHL ; 
6A 1 FB 00 CALLS #1, GETFILDSC ; | 
0 DD OOO8E PUSHL RO 3 
1 DD 99 PUSHL #1 ; 
000000006 8F DD 0009 PUSHL #PATS_OPENIN : 
66 5 FB 0009 CALLS #5, LIBSSIGNAL F 
04 00098 RET > 1289 
67 0c AS dO 0009C 18: MOVL § PATSGL_OLDFAB+12, PATSGL_CHANUM : en 
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cath 


SE 64 06 Fi OA0 BBC #6, PATSGL_FLAGS, 3$ : 
g4 3 AG TSTB =—- PAT SGL_FLAGS : 
A ae BLSS 5 ; 
7 DD OOOA PUSHL PATSGL_CHANUM ; 
000000006 09 1 FB OOOAA CALLS 40 sys DASSGN : 
6 g D 0B MOVL PAT$GL_ERRCODE : 
16 6 E B4 BLBS PatsGL LERRTODE, 2$ ; 
D4 00087 CLRL SP) ~ ; 
63 DD 00089 PUSHL PATSGL_ERRCODE : 
DD 0088 PUSHL : 
6A 1 FB 00080 CALLS #1, GETFILDSC ; 
0 DD 99¢0 PUSHL RO ; 
01 DD 000C PUSHL #1 F 
000000006 8F DD 000C4 PUSHL HPATS CLOSEIN : 
56 05 FB OOOCA CALLS LTB$SIGNAL ; 
67 D4 000CD 2$: CLAL PAtSGL CHANUM : 
64 04 8A OOOCF BICB2 PATSGL_FLAGS : 
FO = A2 OG 00D¢ CLRL ex xiT_ : 
F4  A2 00000000v FF i 00D MOVAB EXIT HANDLER EXIT_CB+4 ; 
FB Ad 1 D0 000DD MOVL = #1 F 
mc UA 63 9E 000E1 MOVAB PATSGL ERRCODE, EXIT_CB+12 ; 
FO A2 9F OO0ES PUSHAB EXIT_CB ; 
000000006 00 01 FB 000E8 CALLS #1, SYSSDCLEXH : 
63 50 DO OOOEF MOVL RO, PATSGL_ERRCODE : 
0D 50 E8 000F2 BLBS RO : 
63 DD 000FS PUSHL PATSGL _ERRCODE : 
E D4 O00F7 CLRL. = (SP) : 
000000006 8F DD 000F9 PUSHL gPATS SYSERROR : 
66 03 FB OOOFF CALLS #3, LIBSSIGNAL : 
04 00102 3$: RET F 
3; Routine Size: 259 bytes, Routine Base: _PATSCODE + 017C 


; 518 


1322 1 
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; 0 1323. 1 ROUTINE EXIT_HANDLER (status_adr) : NOVALUE = 

$ 1 ! 3 } i++ 

; 5 $ Functional Description: 

; 5 1 3 1! Process exit conditions when petebio a file in absolute mode 

; 526 1 1! AND in place (/ABSOLUTE /NONEW_VERSION). The only action for 

: 7 1330 1! this routine curcontiy is to issue an informational message to 

3 8 1351 1! the user indicating that the file being pathed is being overwritten. 
; 2 : § : This is a direct result of the normal handling of mapped disk sections. 
; ; 1 : : } Inputs: 

7s : 1 § 1 status_adr addr.rl The address of the status longword 

> 534 1 73 indicating the reason for image exit. 
: 23? : $ } (NOTE: This value is ignored! 

: 337 1340 t Side Effects: 

; 539 1366 1/ The file being patched acy have modified pages which are written 

; 540 13435 1! back to the section file file during image rundown. 

> 541 1344 1! 

; 26g 1345 1 !<- 

; 54 1346 BEGIN 

HS TED B cocm 

; 346 1349 OLD_FILE : $BBLOCK CDSC$C_S_BLN); 

: 548 1351 é OLD_FILE [CDSC$W_LENGTH] = .PATSGL_OLDNBK CNAMSB_RSLI; 

; 549 1326 OLD FILE CDOSCSA_POINTER] = PAT$GB_OLDNAME; 

3 a20 132? § SIGNAL (PATS_OVERLAY, 1, OLD_FILEJ; 

: 552 1355 1 END;  ! of ROUTINE exit_handler 


0000 00000 a 


wo Save nothing : 1323 
5E 08 ¢2 0000 SUBL2 #8, SP ; 
6E 000000006 EF 98 0000 MOVZBW PATSGL_OLDNBK+3, OLD_FILE > 1351 
04 AE 000000006 EF 9E 0000C MOVAB PATSGBIOLDNAME, OLD_FILE+4 : 133¢ 
—E 0D 99014 PUSHL SP : 135 
07 DD 00016 PUSHL #1 ; 
000000006 af DD 00018 PUSHL #PATS$_OVERLAY ; 
000000006 00 3 FB 00016 CALLS #3, LTBSSIGNAL ; 
04 0002 RET : 1355 


3; Routine Size: 38 bytes, Routine Base: _PATSCODE + 027F 


} 
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IMPLICIT INPUTS: 


! IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 


BEGIN 


PATSGL_NEWF ABCFAB 


oo —— 


ROUTINE OPEN_OUTPUT : 


FUNCTIONAL DESCRIPTION: 
OBTAIN THE OUTPUT FILE PARAME 
FAB 1S SET UP AND THE NUM 


NE. 

CKS_IS INITIALIZED. 
ITTEN AS THE NUMBER OF 
OT BE KNOWN UNTIL THEN. 


CLI HAS THE COMMAND LINE 


THE OUTPUT IMAGE FAB ARE INITIALIZED. 


iY ELISPRESENY (output) 
CLISGET_VALUE (output, input_desc); 

PATSGL_IMGBLKS = .PATSGL_OLDXABFHCXABSL_EBK] + 
PATSGL_NEWFABLFABSL_FNAJ=. 


$8 
PATSGL"FLAGS CPAT$S- OUTPUT 
INPUT_BESC CDSCSA_POINTER) = 0; 


END; ! END OF OPEN_OUTPUT 


000C 00000 OPEN_OUTPUT: 
. WORD 


1 9888S eats teR eke en Sacaparmar.as2rie” (9 


ROUTINE TO INIT FOR OUTPUT FILE OPEN 


THE NUMBER OF IMAGE BLOCKS IS INITIALIZED AS IS THE FILENAME IN THE FAB. 


' Get the OUTPUT file specification. 
' INITIALIZE NUMBER OF BLOCKS IN FILE 


SET FILE NAME ADDRESS 

SET FILE NAME LENGTH 

SET FLAG FILE NOT OPEN 

Force allocation of a new buffer 
to preserve the OUTPUT file spec. 


L_OLDXABFHCXAB$W_FFB) NEQ 0); 
_BESCCDSC$A_POINTER); 
INPUT-DESC DSCSWILENGTHJ; 


Save R2,R3 
OUTPUT, R3 
INPUT_DESC, R2 


R 
#1, fi) JOPRE SENS 
RO, 1 


0 
) 
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PATMAIN 16-Sep- VAX=11 Bliss-32 V4.0-742 1 
yOu~000 1 =Sep- 1384 99: 93: $8 DISKSVMSMASTER: CPATCH. SRCJPATMAL .B32; ryse 3 
DD 0001C PUSHL : 1392 

DD 0001 PUSHL i ; 

000000006 00 FB CALLS , CLISGET_VALUE : 
D4 1$: €LAL 4 + 1395 

000000006 EF 83 0029 TSTW  PATSGL_OLDXABFH+20 : 

be 99081 Tact | r 

000000006 EF 0000009066 F4 i 0033 2$: MOVAB aPATSGL OLDXABEH+16CROJ., -PATSGL_ IMGBLKS ; 
00000000G_ EF A2 00 0003F MOVL NPUT_DESC+4, PATSGL + 1396 
900000006 EF 62 90 00047 MOVB IN NPUT DESC, PATS$GL ChEUEABSS2 + 1397 
000000006 _ EF 08 8A 00045 BICB2 FLAGS + 1398 
04 A2 04 0005 CLRL Ther _DESC#4 : 1399 
04 00058 ET + 1401 


; Routine Size: 89 bytes, Routine Base: _PATSCODE + 02A5 


: 600 1402 1 
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; 60 1405 ROUTINE OPEN_JOURNAL : NOVALUE = ! ROUTINE TO OPEN JOURNAL FILE 

: 604 1405 1 !44 

; 605 1406 | FUNCTIONAL DESCRIPTION: 

: £08 1408 1! PROCESS THE JOURNAL FILE PARAMETER IN THE COMMAND LINE. 

3 ons bs : THE FAB IS SET UP AND THE JOURNAL FILE OPENED. 

: 610 141] { IMPLICIT JOURNALS: 

: 6g 1218 1 | CLI HAS THE COMMAND LINE. 

3 ei? 1312 : THE JOURNAL FAB AND RAB ARE INITIALIZED. 

: 615 1416 1 | IMPLICIT OUTPUTS: 

: 616 1417 1! 

Po apa 

; 619 14 0 | ROUTINE VALUE: NONE 

; oF 14 g ' COMPLETION CODES: 

ie. tei = 

: 625 14 ; ; SIDE EFFECTS: 

; 627 1428 1! THE JOURNAL FILE IS OPENED. 

: 628 1429 1! 

; 629 1430 1 in. 

; 630 1431 1 

; 631 1438 BEGIN 

; e383 1634 If the /JOURNAL qualifier is present, get the file specification. 

: 635 1436 IF CLISPRESENT (journal) 

; os? \ee8 PATSGL_FLAGS CPATSS_JOURNAL] = CLISGET_VALUE (journal, input_desc); 

: 639 1440 PATSGL_JNLEABCEABSL_ENA]=. INPUT _DESC DSC$A_POINTER); ! SET FILE NAME ADDRESS 
3 640 1441 2 PATSGL~JNLFABLFABSB-FNSJ=.INPUT-DESC COSCSW-LENGTHJ; i SET FILE NAME LENGTH 

> 641 1448 PATSGL~ERRCODE=$CREATE (FAB=PATSGL_JNLFAB) ; i OPEN JOURNAL FILE 

3 64¢ 1443 1F Not .PATSGL_ERRCODE i SUCCESS ON OPEN? 

: 644 1445 BEGIN 

> 645 1446 PATSGL_FLAGS CPAT$S_JOURNAL] = 0; ' SET FLAG FILE NOT OPEN 
; 646 1447 SIGNAL TPATS_OPENOUT; 1 ,GETFILDSC(PATSGL_JNLFAB) , .PATSGL_JNLFABLFABSL_STS3, .PATSGL_JNLRABCRABSL_ STV); 
.) ee i 

> 650 1451 PATSGL_ERRCODE=SCONNECT(RAB=PATSGL_JNLRAB) ; ' CONNECT JOURNAL FILE 

; 651 145¢ IF NOT~.PAT$SGL_ERRCOD i SUCCESS ON CONNECT? 

: 65¢ 145 THEN "SIGNALTPAT$ OPENOUT,1 GETFILDSC(PATSGL_JNLFAB) , .PATSGL JNLRABCRABSL_STSJ, .PATS$GL_JNLRABLRABS 
; $3? +t 33 BLSe PATSGL_FLAGS CPAT$S_ JOURNAL) = 1; ! SET FILE OPEN FLAG, DATA STREAM ACTIVE. 
: 655 1456 1 END; |! END OF OPEN_JOURNAL 


Be Ge Oe Os Os Oe Os Os Oe Ose Os BE hs Oe 
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<v 
oF 


3 


.EXTRN SYSSCREATE, SYSSCONNECT 
OOFC 00000 OPEN_ JOURNAL: 
WORD 


Se ee te ee te Ft ae 


0 Save R2,R3,R4,R5,R6,R7 : 1403) 
57 00000000" EF 9€ 9002 MOVAB JOURNAL, : 
26 000000006 EF 9€ 0000 MOVAB PATSGL_ JNLRAB+I , Rb : 
§ 900000006 EF 9€ 00010 MOVAB PATSGL > LAGS, R : 
54 9000 000' EF 9E 0017 MOVAB TN UT ESC : : 
53 90 000006 EF 9€ 00 43 MOVAB PATSGL ERRCODE, R3 : : 
52 000000006 a 9E 00¢ MOVAB PATS$GL-JNLFAB, R2 : : 
000000006 00 { Pb Bist See ae PT CLISPRESENT — 
10 HN E9 a00$8 BLBC RC ’ i$ : : 
54 DD 00 8 PUSHL + 1438) ; 
57 DD OO03A PUSHL 7 : : 
000000006 00 02 FB 9003¢ CALLS #2, CLISGET_VALUE ; 
65 1 01 50 FO 0004 SV RO, #1, #17 PATSEL : 
2c A2 04 Ad DO 00048 18 MOVL — INPUT_DESC+4 PATSCL- AAO AB +44 + 1440 
4 Ae 64 90 00040 MOVB §-INPUT~DESC, PATSGL_JALFAB+52 + 1441 
52 DD 00051 PUSHL  R2 + 1442 
000000006 00 01 FB 00053 CALLS #1, SYSS$CREATE : 
63 50 DO 0005A MOVL RO. PAT$GL_ERRCODE ; 
OA 63 cs 0005p LBS PAT$GL_ERRTODE, 2$ + 1443 
65 02 8A 00060 BICB2 2. PATS$GL_FLAGS + 1446 
66 DD 00063 PUSHL PATS$GL_JNLRAB+12 + 1447 
08 A2 DD 00065 PUSHL PATSGL—JNLFAB+8 : 
14 11 00068 BRB 3$ ; 
F4 Ab OF 0006A 2$: PUSHAB PATS$GL_JNLRAB + 1451 
000000006 00 01 FB 0006D CALLS #1, SYSSCONNECT : 
63 50 DO 00074 RO, PAT$GL_ERRCODE : 
1F 63 £8 00077 BLBS § PATSGL_ERRTODE, 4$ + 1452 
7E FC Ad 7D OOO7A MOVQ § PATS$GL~JNLRAB+8, =(SP) + 1453 
52 DD OOO7E 3S: PUSHL Re : 
000000006 EF 01 FB 00080 CALLS #1, GETFILDSC : 
50 DD 00087 PUSHL RO : 
01 DD 00089 PUSHL #1 : 
000000006 8F DD 0008B PUSHL  #PAT$_OPENOUT : 
000000006 00 05 FB 00091 CALLS #5, LIBSSIGNAL : 
04 00098 RET : 
65 02 88 00099 4$ BISB2 #2, PATSGL_FLAGS + 1454 
04 0009¢ RET > 1456 


; Routine Size: 157 bytes, Routine Base: _PATSCODE + O2FE 


; 656 1457 1 
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; $28 1038 ! GLOBAL ROUTINE PATSOPEN_COMFIL (COMMAND_LEVEL) : NOVALUE = ! ROUTINE TO OPEN COMMAND FILE 
; 660 1460 1 !+4+ 

; rod bed ! FUNCTIONAL DESCRIPTION: 

; & 1288 3 PROCESS THE COMMAND FILE PARAMETER IN THE COMMAND LINE. 

; oes 1e0¢ : } THE FAB IS SET UP AND THE COMMAND FILE OPENED. 

; 666 1466 1! IT IS ALSO SERVING TO OPEN THE COMMAND FILE BECAUSE OF THE ‘’CREATE'’ COMMAND. 

; 667 1467 1! IN THIS CASE, THE INPUT PARAMETERS ARE ZEROS. THERE SHOULD BE ONLY ONE ""CREATE"' 

; 668 1468 1! COMMAND PER PATCH H SESSION. THE ‘'CREATE’’ COMMAND MAY OR MAY NOT HAVE ONE 

: 69? 1292 ! ARGUMENT WHICH IS THE COMMAND FILE SPECIFICATION. 

; 671 1471 1 ! FORMAL PARAMETERS: 

;. Ofe 1e%6 ; 

; 673 1475 1! command_level val 0 Implies the PATCH CREATE command. 

3 ore Vere : 1 Indicates that we are processing the command Line. 

; 676 1476 1 ! IMPLICIT COMMANDS: 

3; 677 1477 1! 

: 678 1478 1! CLI HAS THE COMMAND LINE. 

: or pt ’ THE OUTPUT COMMAND FAB AND RAB ARE INITIALIZED. 

; 681 1481 1 ! IMPLICIT OUTPUTS: 

; 682 1482 1! 

> 683 1483 1! NONE 

3; 684 1484 1! 

; 685 1485 1 ! ROUTINE VALUE: 

3; 686 1486 1! 

3; 687 1487 1! NONE 

; 688 1488 1! 

; 689 1489 1 ! COMPLETION CODES: 

; 690 1490 1! 

: 691 1491 1! NONE 

; 692 1492 1! 

: 693 1493 1 ! SIDE EFFECTS: 

3; 694 1494 1! 

s 695 1495 1! THE COMMAND FILE IS OPENED. 

3 696 1496 1! 

3; 697 1497 1 In- 

3; 698 1498 1 

; 699 1499 2 BEGIN 

: 700 1500 

: 701 1501 LOCAL 

3; 702 1502 POINTER : REF VECTORC,LONG) ' POINTER TO ADDRESS OFFILE NAME 
> 703 1503 2 NAM REF VECTORC BYTES, i POINTER TO ASCIC FILE NAM 

: oe 1208 § OUT BUFFER : VECTORCTTY_OUT_WIDTH, BYTE); ' OUTPUT BUFFER FOR JOURNAL MESSAGES 
: 706 1506 

3; 707 1507 IF .PATSGL_FLAGS CPAT$S_COMMAND] ' Does a command file already exist? 
; 708 1508 THEN : a A 81978) an error indicating 
; 709 1509 BEGIN : and file re session! 
: at 1319 a ates DUPCOMF IL+MSG$K_WARN,2, .PATSGL_CCMNBKCNAMSB RSL. PATSGB. COMNAME 

; ars 1318 

ae «| 151 POINTER = .PATS$GL_HEAD_LST; 

3; 714 1514 IF (. POINTER NEQA™ 0) 


ee? ' 


42 
DISKSVMSMASTER: CPATCH.SRCJPATMAL. 832: i 


D 13 


| 
PATMAIN 16-Sep-1984 3: VAX-11 Bliss-32 V4.0-742 5 | 
v04-000 14- otep- 1384 99: 93 48 DISKSVMSMASTER: CPATCH.SRCIJPATMAL. B32; ? ° §| 
“as 4) 1515 THEN H 
; 716 1318 | ; 
3 ir 151 ‘psc = ,POINTER(1); ! GET ADDRESS OF FILE NAME : 
: 718 1518 PAT SCE “COMFABCFABSL_FNAJ=NAME_DSCC1); ! SET FILE NAME ADDRESS | ; 
; £8 1233 cal oe. L-CO OMF ABLF ABSB “FNSJ= -NAME_D scC C04; ' SET FILE NAME LENGTH : 
3 fel 1521 ¢ ELSE 3 
: Use 15 ¢ BEGIN ! See if a file spec was given ; 
s fe 15 4 IF (PATSGL_FLAGS CPATSS_COMMAND] = CLISGET_VALUE (command, input_desc)) : 
> 724 1524 3 THEN 3 
s vee 1525 4 BEGIN ! If it was... ; 
: ise 1526 4 PATSGL_COMF ABCF ABSL ENGI: .input_desc [dsc$a_pointerJ; ' SET FILE NAME ADDRESS | i 
: 44 1 { : PATSGL COMFABCFABSB_FNSJ=.input_desc Cdsc$w_lengthi; ! SET FILE NAME LENGTH 
: | 
3; 729 13¢2 3 ELSE ! Otherwise use default... 
. ti 1530 4 BEGIN ! file name from RFLNAM, | 
rae 1531 4 PATSGL_COM 414 ABSL_FNAJ=0; ! SET FILE NAME ADDRESS 
wee 1532 4 PATS$GL_COMFABLF ABSB B-FNSJ=0; ! SET FILE NAME LENGTH 
; to 1533 3 END; | 
s 134 1534 2 END; 
5 39 1535 2 
; to 1536 2 PATSGL_ERRCODE=$CREATE (FAB=PATS$GL_COMF AB) ; ! OPEN OUTPUT COMMAND FILE 
3; for 1537 2 IF NOT .PAT$SGL_ERRCODE ! SUCCESS ON OPEN? 
; 738 1538 ¢ THEN 
3; 739 1539 ecein 
; 740 1540 3 PATSGL_FLAGS CPAT$SS_COMMAND] = 0; T FLAG FILE NOT OPEN | 
: my 1303 3 SIGNAL TPATS.. OPENOUT> 1 »GETFILDSC(PATSGL_ COMFAB),.PATS$GL_ COMP ABC ABSL _STSJ,.PATSGL_COMF ABLF ABSL_ ea 
> 743 1543 2 ELSE 
> 744 1544 3 BEGIN 
3; 745 1545 3 PATSGL_ERRCODE=$CONNECT (RAB=PATSGL_COMRAB) ; ' CONNECT COMMAND FILE 
: rs 1366 ; ty WOT -PAT$GL_ERRCODE ' SUCCESS ON CONNECT? 
5 mee 1363 ; th peed OPENOUT.1,GETFILDSC(PATSGL_COMF AB) ,.PAT$GL_COMRABCRABSL_STSJ,.PAT$GL_COMRABCRABSL_STVJ) | 
s 750 1550 4 BEGIN | 
3: 751 1551 4 
: 752 1552 4 i ‘e set the flag inbteat ing the file is open. If the command 
s 7535 1553 4 i file was opened due to a CREATE command, then write out the 
3; 754 1554 4 i mame of the command file to the journal file and write out 
3 oe? 132? ? ' the DCL PATCH command Line to the command file. 
s 37 1557 4 PATS$GL_FLAGS CPAT$S conan « ' SET FILE OPEN BIT 
: 758 1558 5 IF (.COMMAND_LEVEL EQ. 0 
; 759 1559 4 
; 760 1560 5 IN 
: 761 1561 5 PATSCP_OUT_STR = CHSPTR(OUT_BUFFER, 0); | 
; poe 1308 5 PAT$GL_BUF-SIZ = 0; | 
3; 1363 63 PATSFAO_PUT(COM STR, “PATSS, COMNBKCNAM$B_RSLJ, PAT$GB_COMNAME) ; 
: 764 1564 5 PATSWRITEFILE(.PATSGL_BUF SIZ, peer ra ow “BUFFER, 0), PATS$GL _JNLRAB) ; 
: 765 1565 5 PATSCP_OUT_STR = CHSPTRCODT BUFFER, 
: 766 1566 5 PATSGL_BUF SIZ = 
; 767 1567 5§ PATSGL_COM MRAB RABSW, RSZ) = “PATSOL re FABSB -fNS2: 
; 768 1568 5 PAT$GL_COMR ABER ABSL"RBF) = .PATS$GL-OLDFAB CFABSL-FNA 
; 16? 139? 5 if NOT” (PATSGL ERRCODE = $PUT CRABS PATSGL _COMRAB)J 
: 771 1571 SIGNAL (PATS_WRITEERR,1,GETFILDSC(PATSGL_COMF AB), 
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a .PATSGL_COMRABCRABSL_STSJ,.PATSGL_COMRABLRABSL_STVJ); 


Sete eteeace 
NNwWNN 


1378 5 
1573 4 
1574 3 END; 
1575 END; 
1576 1 END; ! END OF PATSOPN_COMMAND 


-EXTRN SYS$PUT 
OFFC 00000 sENTRY PATSOPEN_ COMFIL, Save R2,R3,R4,R5,R6,R7,R8,-; 1458 | 


| : 

: ; 

9,R10 : ; 

5B 000000006 FF oF 90002 MOVAB GETFILOSC, R11 : | : 

5A 000000006 00 9€ 00009 MOVAB LIBS$SIGNAL, R10 : ; 

59 000000006 EF 9E 00010 MOVAB PATSGL_COMNBK+3, R9 : ; 

58 000000006 EF 9€ 00017 MOVAB PATSGB~COMNAME, R8 : ; 

57 000000006 EF 9E OO01E MOVAB PATSGL~BUF_SIZ. R F : 

56 00000000' EF 9€ 000 MOVAB INPUT : : | ; 

55 90000000 EF 9€ 000 ¢ MOVAB PAT$GC_FLAGS, RS : : 

54 000000006 EF 9€ 000 MOVAB PATSGLIERRCODE, R4 : : 

53 000000006 EF 9€ 0003A MOVAB PATS$GL~COMR 3 : : 

52 000000006 EF 9€ 00041 MOVAB PATSGL" COMFAB+44, R2 : ; 

SE FF7C cE 9E 00048 MOVAB (SPB), SP : | ; 

10 65 £9 0004D BLBC —~ PATSGL _FLAGS, 1$ : 1507! ; 

58 DD 00050 PUSHL R > 1510) : 

7E 69 9A 00052 MOV ZBL PATSGL_ COMNBK+3, -(SP) : | : 

02 Dd 0005 PUSHL : : 

00608280 8F DD 00057 PUSHL ; 176880 : : 

6A 04 FB 0005D CALLS #4, LIBSSIGNA : : 

50 000000006 EF D0 00060 1$: MOVL  PATSGL_HEAD_ ST, POINTER > 1513 : 

OE 13 00067 BEQL 2$ : 1514 ; 

50 04 AO dO 00069 MOVL  4(POINTER), NAME abs C : 1517 ; 

62 01 AO 9E 0006D MOVAB 1(RO), PAT$GL_COMFAB+44 : 1518 ; 

08 A2 60 90 00071 MOVB § (NAME_DSC), PATSGL_COMFAB+52 : 1519 ; 
26 11 00075 BRB 4$ : 1514 ; 

6 DD 90077 2$: SHL : 1523 : 

00000000' EF 9F 00079 PUSHAB COMMAND : ; 
000000006 00 02 FB OOO7F CALLS #2, CLISGET_VALUE : ; 
65 1 00 50 FO 00086 INSV R #0, #1, -PATSEL _FLAGS : : 
OA 50 €9 00088 BLBC F ; 

62 04 Ab DO 0008E MOVL RO. 3 _DESC+4, PATSGL_COMFAB+44 : 1526 : 

08 A2 66 90 0009 MOVB INPUT “DESC, PATSGL_COMFAB+52 : 1527 : 
05 11 00096 BRB 4$ > 1523 : 

6 ps 0098 3$: CLRL = PATSGL_COMFAB+44 : 1531 : 

08 Ad 94 OO09A CLRB  —- PATSGL~COMF AB+52 : 1532 ; 

D4 A2 9F 0009D 4$: PUSHAB PATSCL COMF AB : 1536 ; 

000000006 00 o1 FB OOOA0 CALLS #1, SYS$CREATE ; : 
64 0 pO 00047 MOVE PATSGL ERRCODE : | : 

09 64 OOAA BLBS Pats ERRCODE > 1537 | ; 

65 01 8A OOOAD BICB2 PATSCL bags > 1540 | ; 

7E bc §=A2 «7D 00080 mova PatsGL. CONFAB*S. ~(SP) > 1941, : 

13 11 00084 BRB F ; 

53 DD 000B6 S$: PUSHL 8 > 1545 | : 

000000006 00 gi FB 000B CALLS #1, SYSS$CONNECT : : 
64 0 00 OOBF MOVL RO. PATSGL L AERRCODE ; | ; 

16 64 5 00C BLBS = PATS$GL > 1546. : 

7E 08 a3 7D 000C MOV  =PATSGL~ bey -(SP) > 1548. : 
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D4 a2 OF cg 6$: PUSHAB PATS$GL_COMFAB ; | : 

68 FB OOOCC CALLS , GETFILDSC : ; 

0 DD OO00CF PUSHL RO : ; 

1 DD 00001 PUSHL #1 : ; 

000000006 8F oD 0003 PUSHL #PAT$_OPENOUT : | ; 

1 11 0000 BRB : | ; 

65 01 88 0008 7$ BISB2 «#1, parse FLAGS t 1557) ; 

04 AC D5 OOODE TSTL “gee LEVEL : 1558. F 

6C 12 000E1 BNEQ $ : ; 

000000006 EF of 9E 0005 MOVAB OUT aureeR, PATSCP_OUT_STR + 1561) : 

67 D4 OOOEA CLAL PATSGL BUF _SIZ : 136¢ | ; 

58 DD OOOEC PUSHL ; 1563) : 

7E 69 9A OOOEE MOVZBL PATSGL comax+S, -(SP) : : 

00000000" Ff 9F OOOF1 PUSHAB M_ : 3 

000000006 _ EF 3 FB OO0F7 LLS “PATSFAO_PUT : : 

000000006 EF 9F OOOFE PUSHAB PATSGL JNLRAB ; 1564 | ; 

04 AE 9F 00104 PUSHAB OUT_BUFFER : : 

6? DD 00107 PUSHL PATSGL ; ; 

000000006 EF 03 FB 00109 CALLS #3, PATSWRITEFILE ; : 

000000006 EF 6E 9E 00110 MOVAB OUT BUFFER. PATSCP_OUT_STR ; 1565, : 

67 D4 00117 CLAL PATSGL_8 : 1566 ; 

22 A3 00000000G EF 9B 00119 MOVZBW PATS$GL “BL DFABSS2, PAT$GL_COMRAB+34 : 1567 3 

28 A300000000G EF DO 00121 MOVL PATSCt~ “OLDFAB+44, PATS$GL~COMRAB+40 : 1568 ; 

53 DD 00129 PUSHL RS + 1569 ; 

000000006 00 01 FB 00128 CALLS , SYS$PU ; : 

64 50 DO 001 2 MOVL 48 SAiscl _ERRCODE ; ; 

17 50 8 0013 BLBS ; | F 

7E 08 A3 7D 00138 MOva PATSGL_ COMRAB+B, -(SP) : 1572 ; 

D4 A «O9F -0013C PUSHAB PATSGL7COMF AB : 1571| : 

68 01 FB 0013F CALLS GETFILDSC ; : 

50 DD 00142 PUSHL 4u F : 

01 DD 00144 PUSHL #1 : : 

000000006 1 8F DD 00146 PUSHL #PATS$_WRITEERR : : 

A 05 FB OO14C 8$: CALLS #5, LIBSSIGNAL : : 

04 OO14F 9$: RET 3 tg : 
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ROUTINE VOLUME _PARSE : 


te 
FUNCTIONAL DESCRIPTION: 


Obtain a Relative Volume Number if specified on the command Line, 


or when the VOLUME qualifier is specified without a value, to 


default the value from the old image. 
IMPLICIT INPUTS: 

PATSGW_IMGVOL 
IMPLICIT OUTPUTS: 

PATSGW_IMGVOL is loaded with the appropriate Relative Volume Number. 
ROUTINE VALUE: 


Relative Volume Number. 


COMPLETION CODES: 


volume_desc : $BBLOCK Cdsc$ 
volume_number : (0 


BIND 
OLD_FILE_ID = PATSGL_OLDNBKCNAMSW_FIDJ 


CHSFILL (0, dsc$c_s_bln, volume desc); 
dsc$b_dtype] = dsc$k_dtype_lu; 
= dsc$k_class_s; 
dsc$a_pointer] = volume_number; 


: VECTOR C,WORDJ; 


volume_desc 
volume_desc 
volume_desc 
CLESPRESENT (volume) 


I a hts CPAT$S_VOLUME] = CLISGET_VALUE (volume, input_desc)) 


BEGIN 
IF LIBSCVT DX_DX (input_desc, volume_desc) 
THEN PAT$GQ_IAGVOL 


ELSE PATSGW_IMGVOL ! otherwise, default to the old Re 


LSE 
PATSGW_IMGVOL = .OLD_FILE_10(2]; 


END; ! of ROUTINE volume_parse 
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i 


| 
| 
| 
} 


Declare a local descriptor for converting 
the volume number specified from the comma 


Initialize the descriptor. 

Data type is Longword Unsigned. | 

Scalar class. 

Set address of scalar. | 
} 
| 


Convert the volume number, 


If its ok, then load the user supplied nun 
. Vol. 


! Default to the old Rel. Vol. No. | 
| 
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PATMAIN 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 e 29) 
v04-000 1enee- 1 3Be 99:85:38 Theat eR eee Secaparmar 3203 e105 
ae Peay PLP R2,R3,R4,R5,R6,R7 RE 1578 
° har Z | 
58 00 9900" EF 9E 0 02 MOVAB  -VOLU RB’ : 
a 00006 EF 9E 0000 MOVAB PAT Scu" IMGVOL R7 : 
26 0000000' EF H 0 19 MOVAB NPUT_BESC, R6 : 
: BSE BbotA Rt HB. 3? NUMBER + 1604 
08 00 6E pe 06 2¢ O01¢ MOVCS #0, (SP), #0, #8, VOLUME_DESC : 1612 | 
06 AE 01046 8F 80 0023 MOVW #260, VOLUME _DESC+2 + 1613 
08 AE 6 E 00029 MOVAB VOLUME_NUMBER, VOLUME_DESC+4 + 1615 
DD 90 D PUSHL + 1617 
000000006 90 01 FB F CALLS a. CLISPRESENT : 
1 50 £9 00036 BLBC * 3$ : 
26 DD 00039 PUSHL Pe > 1619 
58 DD 00038 PUSHL R : 
000000006 00 02 FB 00030 CALLS #2, C ISGeT _VALUE : 
000000006 EF 01 05 FO 00044 INSV RO. # , PATSGL_FLAGS ; 
13 50 £9 00040 BLBC —s_ RO. 1 : 
04 AE OF 00050 PUSHAB VOLUME_DESC + 1622 
56 DD 0005 PUSHL R6 : 
000000006 00 02 FB 00055 CALLS #2, LIBSCVT_DX_Dx : 
04 E9 0005¢ BLBC —-aRO, : 
67 6E 80 0005 NOVY VOLUME_NUMBER, PATSGW_IMGVOL + 1623) 
67 000000006 EF B0 tates 1$: MOVW OLD_FILE_ID+4, PATS$GW_IMGVOL + 1627 
04 0006A 28: RET + 1629 


; Routine Size: 107 bytes, Routine Base: _PATSCODE + 04EB 


; 831 1630 1 
| 
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a ak et ak tt a a a a as 9 2 — 9 1s 2 8s bs — 2 2s a SS 2 


AAAAAAAAAAAAAAAAAAAAAA AA AAA AAA AIA AAA AAA AAA AAO 
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pout ine UPDATE_PARSE : NOVALUE = 
Functional Description: 
Obtain the values associated with the /UPDATE qualifier 


! 

! 

Implicit Inputs: 
Implicit Outputs: 
; Side Effects: 


eco_desc : $BBLOCK Cdsc$c_s_binl, 
eco ~munber : INITIAL (0), 
status; 


CHSFILL (0, t tag s_bln, eco_desc); 
eco_desc Cdsc$b_dtype)] = dsc$k_dtype_lu; 
eco_desc Cdsc$b_class) = dsc$k_class_s; 
eco_desc Cdsc$a_pointer] = eco_number; 


PATSGL_FLAGS CPAT$S_UPDATE] = status = CLISPRESENT (update); 


IF .PATSGL_FLAGS CPAT$S -UPDATE) 
THEN PAT$SGB_EXEC_CMD™= FALSE 
ELSE PATSOB- “EXEC_CMD = TRUE; 
WHILE .status DO 

BEG! 


ae = CLISGET_VALUE (update, input_desc)) 


BEGIN 
IF NOT yirthe ny Sot oe  saeeve _DX_DX CeaR¢ desc, eco_desc)) 
“! Numeric conversion errors are signalled. 


SIGNAL” (PAT$_NUMVAL, ~PATSGL ERRCOBE); 


THEN 
PATSGL_ ECO_ UPD <.eco anes «y = 1; 
END; 
END; ! of ROUTINE update_parse 


07FC 00000 UPDATE _PARSE: 
- WORD 


Save R2,R3,R4,R5,R6,R7,R8B,RI,R10 > 1631 

SA 9000000" EF 9E 9002 MOVAB UPDATE, R : 

39 00000006 EF 9E 00009 MOVAB PATSGL ERRCODE RO ; 

: 9900000" EF 9€ 0001 MOVAB INPUT ; 

3 00000 006 EF 01 MOVAB PATSCB. FREE CRD R7 : 

6 000000006 EF O1 MOV PATSGL-F FLAGS, R6 : 

5E 8 0025 SUBL an : 

E 0028 CLRL Eco. F 

00 6E 00 Be 002A MOVCS # -NUpee RO, #8, ECO_DESC : 


(if any). 


Liss- 32 V4.0-742 Pa age 30 | 
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Declare a local de 
eco level(s) speci 
Local status. 


| 

| 

A goo for converting 

Initialize the descriptor. 


s 
f with the /UPDATE qu 


Data type is Longword Unsigned. 
Scalar class. 
Point to scalar. 


Was /UPDATE specified? 


If it was then don't process any commands 
we see the first SET ECO comman 
Otherwise, process each command immediatel 


While there are ECO level(s) still to proc 
get the eco number (ascii text) and conver 
convert it to its equivalent number. 

Once this is done, set the bit in the ECO 


<v 


MMROO 
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PATMAIN 18- -Sep-1984 VAX=11 s-32 V4.0-742 
v04=0 14-Sep ety fi 99: 93: $8 DISK$V nen TER: CPATCH.SRCJPATMAL. B32. ha 
gS AE 8 f : 
06 AE 0104 8F ae 1 MOVW #260, ECO_DESC+2 ; 
AE gE E 0 7 MOVAB ECO. NUMBER, ECO_DESC+4 : 
A DD B PUSHL Ri : 
000000006 99 1 FB 00030 CALLS #1, CLISPRESENT : 
9 DO 00044 MOVL RO, STATU : 
bh 01 04 F 0047 INSV STATUS, #4, Me _PAT$GL_FLAGS ; 
04 bb 04 FI 0 af BBC #4, PATSGL $s, 1$ ; 
67 4 0005 CLRB PATSGB. EXEC. taD : 
3 11 00052 BRB 38 : 
67 1 90 00054 1$: MOVB #1, PATSGB_EXEC_CMD ; 
42 ; £9 0097 2$: BLBC STATUS, 4$ ; 
DD 0005A PUSHL R8 ; 
5A DD 0005C¢ PUSHL R10 ; 
000000006 00 08 FB 00055 CALLS #2, CLISGET_VALUE ; 
3¢ D 9006 MOVL RO, STATUS ; 
1 52 E9 0068 BLBC _—« STATUS, 4$ : 
04 Ar F 00068 PUSHAB ECO_DESC F 
58 DD 00066 PUSHL Re ; 
000000006 00 08 FB 0007 CALLS #2, LIBSCVT_DX_Dx ; 
69 0 00 00077 MOVL RO, PAT$GL_ERRTODE 3 
11 50 £8 OOO7A BLBS RO, 3$ ; 
69 DD 0007D PUSHL PATSGL_ERRCODE ; 
01 DD 0007F PUSHL #1 ; 
006D81A4 8F DD 00081 PUSHL #7176612 ; 
000000006 00 03 FB 00087 CALLS #3, LIBSSIGNAL : 
6E 01 C3 OO008E 3s: SUBL * ECO_NUMBER, RO ; 
BD 000000006 EF 50 £2 90092 BBSS RO. PATSGL_ECO.UPD, 2$ F 
BB 11 0009A BRB 2$ ; 
04 0009C 4$: RET ; 
; Routine Size: 157 bytes, Routine Base: _PATSCODE + 0556 
; 875 1673 1 
: 876 1674 1 END ' END OF MODULE 
> 877 1675 0 ELUDOM 
.EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
s Name Bytes Attributes 
: _PATSOWN 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC.ALIGN(2) 
: -PATSPLIT 307 NOVEC.NOWRT, RD .NOEXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(O) 
: “PATSCODE 1523 NOVEC.NOWRT. RD. EXE.NOSHR, LCL. REL, CON.NOPIC.ALIGN(2) 
ae me 0 NOVEC.NOWRT.NORD .NOEXE.NOSHR. LCL. ABS. CON.NOPIC.ALIGN(O) 


Library Statistics 


PATMAIN 16-Se -19 VAX-11 Bliss-32 V4.0-742 32 P 
youe000 14- $e0-1984 99: 93: § DISKSVMSMASTER: CPATCH. SRCIPATMAL. B32. 79 "aid V 
SE a kar A ee ee (a ore: eee = SyYERO(§ eoecesce Pages Processing 
: File Total Loaded Percent Mapped Time 
; ~$255$DUA28: SYSLIBJSTARLET. 32;1 9776 36 : 581 00:01. 
> 7$255$DUA28:CSYSLIBICLIMAC.L 32; | 14 0 9 00:00.0 
; Information: 1 
; Warnings: 0 
3; Errors: 0 
: COMMAND QUALIFIERS 
Fy BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATMAL/OBJ=OBJ$:PATMAI MSRC$:PATMAI/UPDATE=(ENH$:PATMAI) 
; Size: 1523 Ss + 331 data bytes 
Run Time: 


Elapsed Time: Ot; 59.1 
Lines/CPU Min: 3210 
eee AO aie 35415 
enety Used: 182 pages 
Compilation Complete 
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